# Replication files for:
# "Generalizability of Heterogeneous Treatment Effect Estimates Across Samples"
# Alexander Coppock, Thomas J. Leeper, and Kevin J. Mullinix
# Proceedings of the National Academy of Sciences, Forthcoming

rm(list = ls())
library(dplyr)
library(readr)

study_labels_df <- data_frame(
  study = c(
    "concealed_carry",
    "immigration",
    "death_penalty",
    "superordinate_id",
    "patriot_act",
    "elite_endorsements",
    "mental_illness",
    "system_threat",
    "expert_economists",
    "free_trade",
    "frame_breadth",
    "polarization",
    "brandtS1",
    "caprarielloS2",
    "flavinS4",
    "gashS5",
    "melloS6",
    "jacobsenS7",
    "piazzaS8",
    "shaferS9",
    "thompsonS10",
    "turagaS11",
    "wallaceS12",
    "parmerS15",
    "converseS16",
    "dennyS17",
    "pedullaS18",
    "berganS20"
  ),
  
  study_label =
    c(
      "Haider-Markel and Joslyn (2001)",
      "Brader (2005)",
      "Peffley and Hurwitz (2007)",
      "Transue (2007)",
      "Chong and Druckman (2010)",
      "Nicholson (2012)",
      "McGinty, Webster and Barry (2013)",
      "Craig and Richeson (2014)",
      "Johnston and Ballard (2016)",
      "Hiscox (2006)",
      "Hopkins and Mummolo (2017)",
      "Levendusky and Malhotra (2015)",
      "Brandt (2013)",
      "Caprariello and Reis (2013)",
      "Flavin (2011)",
      "Gash and Murakami (2009)",
      "Murtagh et al. (2012)",
      "Jacobsen, Snyder and Saultz (2014)",
      "Piazza (2015)",
      "Shafer (2017)",
      "Thompson and Schlehofer (2014)",
      "Turaga (2010)",
      "Wallace (2011)",
      "Parmer (2011)",
      "Epley et al. (2009)",
      "Denny (2012)",
      "Pedulla (2014)",
      "Bergan (2012)"
    ),
  study_factor = factor(study_label, levels = study_label)
)

write_rds(study_labels_df, path = "CLM_study_labels_df.rds")



